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ABSTRACT: 
This routine is the highest level control 
routine to perform the $DISCONNECT function. 
ENVIRONMENT: 
STAR processor running STARLET EXEC. 
AUTHOR: L F Laverdure, CREATION DATE: 1-Apr-1977 
MODIFIED BY: 
v03-001 KBT0177 Keith B. Thompson aug~ -1982 
Reorganize eg and rename entry nates” - singel ‘$' 
6 v02-010 MCNO001 aria del C. Nasr 29-Jul-1981 
3 Rename entry a. to RMS$$ to support long branches. 
00 v02-009 CdS0001 C D Saether 26-F eb-1981 
009 Use RMSEX_NIRAB_SHR exit. 
00 v02-008 pet onnat Frederick E. Deen, Jr. 28-Jul-1980 
4 This code was reformatted to adhere to RMS standards 
v007 RANOOOS R A NEWELL 9-Nov-1978 
File sharing code enhancements 
00 =o 
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~-SBTTL RMSSDISCONNECT = COMMON SDISCONNECT SETUP AND DISPATCH ROUTINE 


raw 


+ 
RMSSDISCONNECT = Common SDISCONNECT setup and dispatch 


This routine performs common RAB function setup followed 
by dispatch to organization-dependent SDISCONNECT code. 


CALLING SEQUENCE: 


ree from EXEC as a result of user's calling SYSS$DISCONNECT 
(e.g., by using the SDISCONNECT macro) 


INPUT PARAMETERS: 

AP User's argument List addr 
IMPLICIT INPUTS: 

The contents of the RAB and RELATED IRAB and IFAB. 
OUTPUT PARAMETERS: 


R1 Destroyed 
RO STATUS code 


IMPLICIT OUTPUTS: 
ALL BDB'S and buffers for this stream are relewsed, and the 
TRAB and ASB (if any) are deallocated. 
RABSL_STS and RABSL_STV reflect the status of the disconnect. 
if successful, RAB$SQ_ISI is zeroed. 
A completion AST is queued if specified in the user arglist. 
COMPLETION CODES: 
Standard RMS (see functional spec for list). 
SIDE EFFECTS: 


None 
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CSB. ss MI RBSV_ASYNC, (R9) 


: Dispatch to org-dependent code 


PUSHAB W*RMSEX_NIRAB_SHR 
BBC #IRBSV_PPF of MS (R9),10$ 


MOVAB ¥ naee Rane 
CASE _—*'TYP sne-iies -ORGCASE (R10) ,= ; 
DISPLIST= =<RNSD{SCON 

RM$DI OCORRONSUC.. MSD ISCONNECT3> 


BRW RMSD1SCOMMONSUC 
END 
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PERATION SEP=1984 01: 
SDISCONNECT setu | ~3Ep=19 4 9: dt} t? t 
seetey RMSS$DISCONNECT 

TSTPT_ DISCON 
SRABSET 


v04-00 Page 


do common oreee with no 
s 


specific chec 

to user on error 

rerce synchronous operation 
order to avoid peansen 

with ASYNC arglist in 

deallocated asb! 


- returns 


; return PC to STACK 

; -e., to fake a BSBW) 

; branch if not INDIRECT PPF 
; take structured exit 


and dispatch 


DISCONNECT for unknown org 


NS | 
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$$.PSECT_EP = 9 
SSRMSTEST = A 
SSRMS_PBUGCHK = 8 
SSRMS_TBUGCHK = 
SSRMS_UMODE = 
1FB$B_ORGCASE = 
IRBSV_ASYNC = 
IRBSV_PPF_ IMAGE = 
PIOSA_ TRACE erkteree X 01 
RMSD 1 SCOMMONSUC eeeeenee =X 8 0] 
RMS$DISCONNECT eeeenere =X 1 
RMSDISCONNECT eeeeeeee =X 1 
RMSE XKRMS ekereeee X 1 
RMSEX_NIRAB_SHR eeeeeeee =X 4 
RMSRSET RRRRERER x 1 
RMSSDISCONNECT = FFFFFFFE RG 01 
TPT$SL_DISCONO eeneeeee =X 01 

seeeceecaeoneaonanooeaen + 

! Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS 00000029 (¢ 41.) OF 6 Yee PIC USR CON’ REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 (¢ 0.) 02 ¢ 2.) NOPIC USR CON’ ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

peer eve mm ere are e ee we wee 
; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
nitialization 2:00:00. :00:00. 
Initiali i 3 00:00 08 00:00:00.75 
Command processing 132 00:00:00.74 8:90 290-88 
Pass 196 00:00:0 $8 0:00:11.80 
Symbol table sort 8 a 6 4 0 0:00:00.84 
Pass 2 4 88 282: 0.80 BR BR BE og 
Symbol table output 4 of BOP at 0:00:00.1 
Psect synopsis output 1 0:00:00.01 00:00:00.0 
Cross-reference output 0 Bo BO: 88 88:00:58 96 
Assembler run totals 410 00:00:06. 0:00:20.70 


The working set Limit was 1200 pages. 

18956 bytes (38 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 371 non-local and 4 local symbols. 
1 source lines were read in Pass 1, producing 15 object records in Pass 2 

16 pages of virtual memory were used to define 15 macros. 
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pf rw waren om ocoee nr new as neem $ 


! Macro Library statistics ! 


+tmeaemeoceanananae san eeae saa e } 


‘Macro Library name Macros defined 


33 SSDUASE: ESYs- 083 ap ET OF 31 


SSDUA ;1 
SSSDUA $78.16) StAMLET MLB; 2 


TOTALS (all Libraries) 11 

467 GETS were required to define 11 macros. 

There were no errors, warnings or information messages. 

MACRO/LIS=L1S$:RMSODISC/OBJ=OBJ$:RMSODISC MSRC$:RMSODISC/UPDATE=(ENHS:RMSODISC) +EXECML$/LIB+LIB$:RMS/LIB 
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